**Germany
clear all
import excel using "$path\Raw_Data\fig1.xlsx", sheet("Fig1_A") cellrange(L3:N17) firstrow

replace USSR = USSR/1000 // units of 1000 migrants
replace Satellite = Satellite/1000 // units of 1000 migrants

twoway (line USSR Year, lcolor(gs0) lpattern(solid)) ///
       (line Satellite Year, lcolor(gs8) lpattern(dash)), ///
       legend(position(6) rows(1)) ///
       ylabel(0(50)350, format(%9.0fc) angle(0)) ///
	   xlabel(1985(2)1998, angle(45)) ///
	   xline(1987 1993, lcolor(black) lpattern(solid)) ///
	   xtitle("") ///
	   title("Germany")
graph save "$path\Tempfiles\fig1_a.gph", replace
	   
*US
clear all
import excel using "$path\Raw_Data\fig1.xlsx", sheet("Fig1_B") cellrange(I2:K16) firstrow

replace USSR = USSR/1000 // units of 1000 migrants
replace Satellite = Satellite/1000 // units of 1000 migrants

twoway (line USSR Year, lcolor(gs0) lpattern(solid)) ///
       (line Satellite Year, lcolor(gs8) lpattern(dash)), ///
       legend(position(6) rows(1)) ///
       ylabel(0(10)70, format(%9.0fc) angle(0)) ///
	   xlabel(1985(2)1998, angle(45)) ///
	   xline(1987 1993, lcolor(black) lpattern(solid)) ///
	   xtitle("") ///
	   title("United States")	   
graph save "$path\Tempfiles\fig1_b.gph", replace
	   
*Israel
clear all
import excel using "$path\Raw_Data\fig1.xlsx", sheet("Fig1_C") cellrange(B2:D16) firstrow

replace USSR = USSR/1000 // units of 1000 migrants
replace Satellite = Satellite/1000 // units of 1000 migrants

twoway (line USSR Year, lcolor(gs0) lpattern(solid)) ///
       (line Satellite Year, lcolor(gs8) lpattern(dash)), ///
       legend(position(6) rows(1)) ///
       ylabel(0(20)200, format(%9.0fc) angle(0)) ///
	   xlabel(1985(2)1998, angle(45)) ///
	   xline(1987 1993, lcolor(black) lpattern(solid)) ///
	   xtitle("") ///
	   title("Israel")
graph save "$path\Tempfiles\fig1_c.gph", replace

*combine, erase tempfiles
grc1leg2 "$path\Tempfiles\fig1_a.gph" "$path\Tempfiles\fig1_b.gph" "$path\Tempfiles\fig1_c.gph", rows(1) imargin(zero) legscale(*1.1)
graph export "$path\Output\fig1.pdf", replace

erase "$path\Tempfiles\fig1_a.gph"
erase "$path\Tempfiles\fig1_b.gph"
erase "$path\Tempfiles\fig1_c.gph"
